textInput( "main", "main", "my main" )
checkboxInput( "horizontal", "horizontal" )
library( shinyLikert )

plot(
  renderShinyLikert( createTestData(),
                     main =  reactive({input$main}),
                     horizontal = reactive({input$horizontal}),
                     as.percent = TRUE )
)

textInput( "main2", "main2", "my main" )
checkboxInput( "as.percent", "as.percent" )

plot(
  renderShinyLikert( createTestData(),
                     main =  reactive({input$main2}),
                     as.percent = reactive({input$as.percent}),
                     split = "gender" )
)

sliderInput("center","center",1.5,4.5,3,0.5)
plot(
  renderShinyLikert( createTestData(),
                     dropdown = "difficulty",
                     center = reactive({input$center}),
                     group = "gender" )
)

checkboxInput("as.percent2","as.percent2")
plot( renderShinyLikert( createTestData(),
                         dropdown = "difficulty",
                         as.percent = reactive({
                           input$as.percent2}),
                         group = "gender",
                         grouping = "HH" )
      )



GregorDeCillia/shinyLikert documentation built on May 6, 2019, 6:36 p.m.